home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (fpu).sea / pro Fit 5.0 demo (fpu) / Examples / Programming - intro / function - simple < prev    next >
Text File  |  1996-04-28  |  624b  |  21 lines
  1. {     The following is a rather simple function. It shows how to
  2.    use the statements 'description' and 'defaults'.
  3.    To add the function to the "Func" menu, click the button 
  4.    "Add" above or choose "Add to menu" from the "Misc" menu.
  5.    To view the function, check "Show Function" in the preview
  6.    window.
  7. }
  8.    
  9. function SinPoly;
  10.  
  11.  description        {optional description to appear in parameters window}
  12.     'x*x + ampl*sin(k*x)', 'example function';
  13.  
  14.  defaults           {optional default values, modes and names}
  15.     a[1] := 0.1, active, 'ampl';
  16.     a[2] := 20, active, 'k';
  17.  
  18. begin
  19.   y := x*x + a[1]*sin(a[2]*x);
  20. end;
  21.